Imports System.Data.SqlClient

Partial Class ShowVouchersPopup
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim cmdParams(0) As System.Data.Common.DbParameter
        If (Request.QueryString.Get("mode") = "r") Then
            cmdParams(0) = DBHelper.CreateParameter("@IsReciept", Data.DbType.Int16, 1)
        Else
            cmdParams(0) = DBHelper.CreateParameter("@IsReciept", Data.DbType.Int16, 0)
        End If

        Dim dt As System.Data.DataTable = DBHelper.ExecuteTable(Data.CommandType.StoredProcedure, "uspGetAllVouchers", cmdParams)
        dt.TableName = "VoucherDetails"

        drgList.DataSource = dt
        drgList.DataBind()
    End Sub
End Class
